home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PINBSRC.ZIP / _AUTODRA.PAS next >
Pascal/Delphi Source File  |  1996-02-02  |  631b  |  35 lines
  1. procedure draw_ground_auto;
  2. var auto:word;
  3. begin
  4.   Set_Sprite(bx_old,by_old-1,16,16,groundseg,0);
  5. end;
  6.  
  7. procedure get_ground_auto;
  8. var auto:word;
  9. begin
  10.  Get_Sprite(ballx,bally-1,16,16,groundseg,0);
  11. end;
  12.  
  13. procedure Mix_BallGround;
  14. var z:word;
  15.     b1,b2:byte;
  16. begin
  17.   for z:=0 to 255 do
  18.   begin
  19.     b1:=mem[groundseg:z];
  20.     b2:=mem[ballseg:z];
  21.     if (b2=0) or (b1 > MAXfarbe) then
  22.          mem[ballspriteseg:z]:=b1
  23.        else
  24.          mem[ballspriteseg:z]:=b2;
  25.   end;
  26. end;
  27.  
  28. procedure draw_ball_auto;
  29. var auto:word;
  30. begin
  31.   Mix_BallGround;
  32.   Set_Sprite(ballx,bally-1,16,16,ballspriteseg,0);
  33. end;
  34.  
  35.